home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Bus / H-L / Invoicer.cpt / Payments < prev    next >
Encoding:
Text File  |  1987-04-07  |  2.8 KB  |  120 lines  |  [TEXT/MSBA]
  1. CLS
  2.   CustCode:
  3.   
  4.     CLS
  5.     TEXTSIZE (24):TEXTFACE(5)
  6.     PRINT:PRINT SPC(11);"PAYMENTS"
  7.     TEXTSIZE(12):TEXTFACE(0)
  8.     INPUT"Customer Code ('help' for code list):",CO$
  9.     IF CO$="help" OR CO$ = "h" THEN CLS: GOTO ListCodes
  10.     IF CO$="quit" OR CO$="q" THEN CLS:LOAD "Open Me First",R
  11.     IF LEN(CO$)<>2 THEN RUN
  12.  
  13.   
  14.   CustName:
  15.     OPEN "Customers B" FOR INPUT AS #1
  16.   CusName:
  17.     IF EOF(1) THEN CLOSE #1:CLS: PRINT:TEXTFACE(1):PRINT"This customer not on file…":FOR m = 1 TO 2500:NEXT:CLS:RUN
  18.     INPUT #1, CD$,CN$,ts$
  19.     IF CO$=CD$ THEN CLOSE #1:CLS:GOTO UpdateFile
  20.     GOTO CusName
  21.   UpdateFile:
  22.    OPEN CO$ FOR INPUT AS #1  
  23.    INPUT #1,BF
  24.    CLOSE #1
  25.   Start:
  26.     CLS
  27.    TEXTSIZE (24):TEXTFACE(5)
  28.    PRINT:PRINT SPC(11);"PAYMENTS"
  29.    WINDOW 2,"",(25,100)-(476,280),3
  30.    
  31.    TEXTSIZE (12):TEXTFACE (1)
  32.    PRINT"Customer:";
  33.    TEXTFACE (1)
  34.    PRINT TAB(16);
  35.    IF LEN (CN$) >40 THEN PRINT LEFT$(CN$,40);"…": GOTO Skpt
  36.    PRINT CN$
  37.  Skpt: 
  38.    PRINT"Current balance: ";
  39.    TEXTFACE (1)
  40.    PRINT TAB (16);
  41.    PRINT USING"$####.##"; BF
  42.    LINE(0,54)-(485,54)
  43. PRINT
  44. TEXTSIZE(9)
  45. PRINT
  46. TEXTSIZE(12):TEXTFACE (1)
  47.     PRINT "Payment received: ";
  48.     TEXTFACE(1)
  49.     PRINT TAB(16);
  50.     PRINT"$ ";
  51.     INPUT"",PR
  52.     IF PR = 0 THEN RUN
  53.     LINE(0,110)-(485,110)
  54.     PRINT:PRINT
  55.     PR$=STR$(PR)
  56.     PRINT:PRINT"New balance:  ";
  57.     TEXTFACE (1)
  58.     PRINT TAB(16);
  59.     PRINT USING "$###.##"; (BF-PR);
  60.  
  61.  YourChoyce:
  62.     WINDOW 3,"",(25,285)-(476,330),-3
  63.     BUTTON 1,1,"OK",(55,10)-(160,35),1
  64.     BUTTON 2,1,"again",(299,10)-(404,35),1
  65.     WHILE DIALOG(0)<>1:WEND
  66.     ButtonPushed =DIALOG(1)
  67.     IF ButtonPushed=1 THEN Bal
  68.     IF ButtonPushed =2 THEN WINDOW CLOSE 2:WINDOW CLOSE 3:CLS:RUN
  69.  
  70.   Bal:
  71.      OPEN CO$ FOR OUTPUT AS #1
  72.      PRINT #1,(BF-PR)
  73.      CLOSE #1
  74.   AcctsFile:
  75.     dr$=DATE$
  76.     OPEN "Accts Recd" FOR APPEND AS #1
  77.     PRINT #1,ts$
  78.     PRINT #1,CO$
  79.     PRINT #1,dr$
  80.     PRINT #1,CN$
  81.     PRINT #1,PR$
  82.     CLOSE #1
  83.   YourChoice:
  84.     WINDOW 3,"",(25,285)-(476,330),-3
  85.     BUTTON 1,1,"another",(55,10)-(160,35),1
  86.     BUTTON 2,1,"quit",(299,10)-(404,35),1
  87.     WHILE DIALOG(0)<>1:WEND
  88.     ButtonPushed =DIALOG(1)
  89.     IF ButtonPushed=1 THEN RUN
  90.     IF ButtonPushed =2 THEN WINDOW CLOSE 2:WINDOW CLOSE 3:CLS: LOAD "Open Me First",R
  91.  
  92.   ListCodes:
  93. CLS
  94.   Lst:
  95.      OPEN "Customers B" FOR INPUT AS #1
  96.      WINDOW 2,"",(25,50)-(476,280),3
  97.   OpFile:
  98.      TEXTFACE(1)
  99.      IF EOF(1) THEN CLOSE #1:TEXTFACE(0):GOTO NewWndw
  100.      INPUT #1,CD$,CN$,ts$
  101.      PRINT CD$;
  102.      PRINT" - ";CN$
  103.      GOTO OpFile
  104.  
  105.   NewWndw:
  106.  WINDOW 3,"",(25,285)-(476,330),-3
  107.     BUTTON 1,1,"again",(55,10)-(130,35),1
  108.     BUTTON 2,1,"enter info",(192,10)-(267,35),1
  109.     BUTTON 3,1,"quit",(329,10)-(404,35),1
  110.       WHILE DIALOG(0)<>1:WEND
  111.       ButtonPushed = DIALOG(1)
  112.       IF ButtonPushed = 1 THEN Lst
  113.       IF ButtonPushed  = 2 THEN  WINDOW CLOSE 2:WINDOW CLOSE 3:RUN
  114.       IF ButtonPushed  = 3 THEN LOAD "Open Me First",R
  115.  
  116.  
  117.     
  118.  
  119.  
  120.